home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 9.5 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar 9 12|
|00000040| 3a 35 32 3a 30 36 20 31 | 39 39 38 0a 3b 3b 3b 20 |:52:06 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 70 61 63 6b |s-20.3/l|isp/pack|
|000000a0| 61 67 65 73 2f 61 75 74 | 6f 2d 73 61 76 65 2e 65 |ages/aut|o-save.e|
|000000b0| 6c 0a 3b 3b 3b 20 65 6d | 61 63 73 20 76 65 72 73 |l.;;; em|acs vers|
|000000c0| 69 6f 6e 20 32 30 2e 34 | 20 22 45 6d 65 72 61 6c |ion 20.4| "Emeral|
|000000d0| 64 22 20 58 45 6d 61 63 | 73 20 20 4c 75 63 69 64 |d" XEmac|s Lucid|
|000000e0| 2e 0a 3b 3b 3b 20 62 79 | 74 65 63 6f 6d 70 20 76 |..;;; by|tecomp v|
|000000f0| 65 72 73 69 6f 6e 20 32 | 2e 32 35 20 58 45 6d 61 |ersion 2|.25 XEma|
|00000100| 63 73 3b 20 32 32 2d 4d | 61 72 2d 39 36 2e 0a 3b |cs; 22-M|ar-96..;|
|00000110| 3b 3b 20 6f 70 74 69 6d | 69 7a 61 74 69 6f 6e 20 |;; optim|ization |
|00000120| 69 73 20 6f 6e 2e 0a 3b | 3b 3b 20 74 68 69 73 20 |is on..;|;; this |
|00000130| 66 69 6c 65 20 75 73 65 | 73 20 6f 70 63 6f 64 65 |file use|s opcode|
|00000140| 73 20 77 68 69 63 68 20 | 64 6f 20 6e 6f 74 20 65 |s which |do not e|
|00000150| 78 69 73 74 20 69 6e 20 | 45 6d 61 63 73 20 31 39 |xist in |Emacs 19|
|00000160| 2e 0a 0a 28 69 66 20 28 | 61 6e 64 20 28 62 6f 75 |...(if (|and (bou|
|00000170| 6e 64 70 20 27 65 6d 61 | 63 73 2d 76 65 72 73 69 |ndp 'ema|cs-versi|
|00000180| 6f 6e 29 0a 09 20 28 6f | 72 20 28 61 6e 64 20 28 |on).. (o|r (and (|
|00000190| 62 6f 75 6e 64 70 20 27 | 65 70 6f 63 68 3a 3a 76 |boundp '|epoch::v|
|000001a0| 65 72 73 69 6f 6e 29 20 | 65 70 6f 63 68 3a 3a 76 |ersion) |epoch::v|
|000001b0| 65 72 73 69 6f 6e 29 0a | 09 20 20 20 20 20 28 73 |ersion).|. (s|
|000001c0| 74 72 69 6e 67 2d 6c 65 | 73 73 70 20 65 6d 61 63 |tring-le|ssp emac|
|000001d0| 73 2d 76 65 72 73 69 6f | 6e 20 22 32 30 22 29 29 |s-versio|n "20"))|
|000001e0| 29 0a 20 20 20 20 28 65 | 72 72 6f 72 20 22 60 61 |). (e|rror "`a|
|000001f0| 75 74 6f 2d 73 61 76 65 | 2e 65 6c 27 20 77 61 73 |uto-save|.el' was|
|00000200| 20 63 6f 6d 70 69 6c 65 | 64 20 66 6f 72 20 45 6d | compile|d for Em|
|00000210| 61 63 73 20 32 30 22 29 | 29 0a 0a 28 6f 72 20 28 |acs 20")|)..(or (|
|00000220| 62 6f 75 6e 64 70 20 27 | 63 75 72 72 65 6e 74 2d |boundp '|current-|
|00000230| 6c 6f 61 64 2d 6c 69 73 | 74 29 20 28 73 65 74 71 |load-lis|t) (setq|
|00000240| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|00000250| 73 74 20 6e 69 6c 29 29 | 0a 0a 0a 23 40 33 30 20 |st nil))|...#@30 |
|00000260| 56 65 72 73 69 6f 6e 20 | 6e 75 6d 62 65 72 20 6f |Version |number o|
|00000270| 66 20 61 75 74 6f 2d 73 | 61 76 65 2e 1f 0a 28 64 |f auto-s|ave...(d|
|00000280| 65 66 63 6f 6e 73 74 20 | 61 75 74 6f 2d 73 61 76 |efconst |auto-sav|
|00000290| 65 2d 76 65 72 73 69 6f | 6e 20 28 73 75 62 73 74 |e-versio|n (subst|
|000002a0| 72 69 6e 67 20 22 24 52 | 65 76 69 73 69 6f 6e 3a |ring "$R|evision:|
|000002b0| 20 31 2e 32 35 20 24 22 | 20 31 31 20 2d 32 29 20 | 1.25 $"| 11 -2) |
|000002c0| 28 23 24 20 2e 20 36 30 | 38 29 29 0a 28 62 79 74 |(#$ . 60|8)).(byt|
|000002d0| 65 2d 63 6f 64 65 20 22 | c0 c1 21 88 c2 c1 c3 c4 |e-code "|..!.....|
|000002e0| c5 c6 25 88 c7 c8 c9 ca | 23 88 c7 c8 cb cc 23 88 |..%.....|#.....#.|
|000002f0| cd c1 c8 ce 23 87 22 20 | 5b 70 72 6f 76 69 64 65 |....#." |[provide|
|00000300| 20 61 75 74 6f 2d 73 61 | 76 65 20 63 75 73 74 6f | auto-sa|ve custo|
|00000310| 6d 2d 64 65 63 6c 61 72 | 65 2d 67 72 6f 75 70 20 |m-declar|e-group |
|00000320| 6e 69 6c 20 22 41 75 74 | 6f 73 61 76 69 6e 67 20 |nil "Aut|osaving |
|00000330| 77 69 74 68 20 73 75 70 | 70 6f 72 74 20 66 6f 72 |with sup|port for|
|00000340| 20 65 66 73 20 61 6e 64 | 20 2f 74 6d 70 2e 22 20 | efs and| /tmp." |
|00000350| 3a 67 72 6f 75 70 20 64 | 61 74 61 20 70 75 74 20 |:group d|ata put |
|00000360| 61 75 74 6f 2d 73 61 76 | 65 2d 69 6e 74 65 72 76 |auto-sav|e-interv|
|00000370| 61 6c 20 63 75 73 74 6f | 6d 2d 74 79 70 65 20 69 |al custo|m-type i|
|00000380| 6e 74 65 67 65 72 20 66 | 61 63 74 6f 72 79 2d 76 |nteger f|actory-v|
|00000390| 61 6c 75 65 20 28 33 30 | 30 29 20 63 75 73 74 6f |alue (30|0) custo|
|000003a0| 6d 2d 61 64 64 2d 74 6f | 2d 67 72 6f 75 70 20 63 |m-add-to|-group c|
|000003b0| 75 73 74 6f 6d 2d 76 61 | 72 69 61 62 6c 65 5d 20 |ustom-va|riable] |
|000003c0| 36 29 0a 28 63 75 73 74 | 6f 6d 2d 64 65 63 6c 61 |6).(cust|om-decla|
|000003d0| 72 65 2d 76 61 72 69 61 | 62 6c 65 20 27 61 75 74 |re-varia|ble 'aut|
|000003e0| 6f 2d 73 61 76 65 2d 64 | 69 72 65 63 74 6f 72 79 |o-save-d|irectory|
|000003f0| 20 27 6e 69 6c 20 22 49 | 66 20 6e 6f 6e 2d 6e 69 | 'nil "I|f non-ni|
|00000400| 6c 2c 20 66 69 78 65 64 | 20 64 69 72 65 63 74 6f |l, fixed| directo|
|00000410| 72 79 20 66 6f 72 20 61 | 75 74 6f 73 61 76 69 6e |ry for a|utosavin|
|00000420| 67 3a 20 61 6c 6c 20 61 | 75 74 6f 73 61 76 65 20 |g: all a|utosave |
|00000430| 66 69 6c 65 73 20 67 6f | 5c 6e 74 68 65 72 65 2e |files go|\nthere.|
|00000440| 20 20 49 66 20 74 68 69 | 73 20 64 69 72 65 63 74 | If thi|s direct|
|00000450| 6f 72 79 20 64 6f 65 73 | 20 6e 6f 74 20 79 65 74 |ory does| not yet|
|00000460| 20 65 78 69 73 74 20 61 | 74 20 6c 6f 61 64 20 74 | exist a|t load t|
|00000470| 69 6d 65 2c 20 69 74 20 | 69 73 5c 6e 63 72 65 61 |ime, it |is\ncrea|
|00000480| 74 65 64 20 61 6e 64 20 | 69 74 73 20 6d 6f 64 65 |ted and |its mode|
|00000490| 20 69 73 20 73 65 74 20 | 74 6f 20 30 37 30 30 20 | is set |to 0700 |
|000004a0| 73 6f 20 74 68 61 74 20 | 6e 6f 62 6f 64 79 20 65 |so that |nobody e|
|000004b0| 6c 73 65 20 63 61 6e 20 | 72 65 61 64 20 79 6f 75 |lse can |read you|
|000004c0| 72 5c 6e 61 75 74 6f 73 | 61 76 65 20 66 69 6c 65 |r\nautos|ave file|
|000004d0| 73 2e 5c 6e 5c 6e 49 66 | 20 6e 69 6c 2c 20 65 61 |s.\n\nIf| nil, ea|
|000004e0| 63 68 20 61 75 74 6f 73 | 61 76 65 20 66 69 6c 65 |ch autos|ave file|
|000004f0| 73 20 67 6f 65 73 20 69 | 6e 74 6f 20 74 68 65 20 |s goes i|nto the |
|00000500| 73 61 6d 65 20 64 69 72 | 65 63 74 6f 72 79 20 61 |same dir|ectory a|
|00000510| 73 20 69 74 73 5c 6e 63 | 6f 72 72 65 73 70 6f 6e |s its\nc|orrespon|
|00000520| 64 69 6e 67 20 76 69 73 | 69 74 65 64 20 66 69 6c |ding vis|ited fil|
|00000530| 65 2e 5c 6e 5c 6e 41 20 | 6e 6f 6e 2d 6e 69 6c 20 |e.\n\nA |non-nil |
|00000540| 60 61 75 74 6f 2d 73 61 | 76 65 2d 64 69 72 65 63 |`auto-sa|ve-direc|
|00000550| 74 6f 72 79 27 20 63 6f | 75 6c 64 20 62 65 20 6f |tory' co|uld be o|
|00000560| 6e 20 61 20 6c 6f 63 61 | 6c 20 64 69 73 6b 20 73 |n a loca|l disk s|
|00000570| 75 63 68 20 61 73 20 69 | 6e 5c 6e 2f 74 6d 70 2c |uch as i|n\n/tmp,|
|00000580| 20 74 68 65 6e 20 61 75 | 74 6f 2d 73 61 76 65 73 | then au|to-saves|
|00000590| 20 77 69 6c 6c 20 61 6c | 77 61 79 73 20 62 65 20 | will al|ways be |
|000005a0| 66 61 73 74 2c 20 65 76 | 65 6e 20 69 66 20 4e 46 |fast, ev|en if NF|
|000005b0| 53 20 6f 72 20 74 68 65 | 5c 6e 61 75 74 6f 6d 6f |S or the|\nautomo|
|000005c0| 75 6e 74 65 72 20 69 73 | 20 73 6c 6f 77 2e 20 20 |unter is| slow. |
|000005d0| 49 6e 20 74 68 65 20 75 | 73 75 61 6c 20 63 61 73 |In the u|sual cas|
|000005e0| 65 20 6f 66 20 2f 74 6d | 70 20 62 65 69 6e 67 20 |e of /tm|p being |
|000005f0| 6c 6f 63 61 6c 6c 79 20 | 6d 6f 75 6e 74 65 64 2c |locally |mounted,|
|00000600| 5c 6e 6e 6f 74 65 20 74 | 68 61 74 20 69 66 20 79 |\nnote t|hat if y|
|00000610| 6f 75 20 72 75 6e 20 65 | 6d 61 63 73 20 6f 6e 20 |ou run e|macs on |
|00000620| 74 77 6f 20 64 69 66 66 | 65 72 65 6e 74 20 6d 61 |two diff|erent ma|
|00000630| 63 68 69 6e 65 73 2c 20 | 74 68 65 79 20 77 69 6c |chines, |they wil|
|00000640| 6c 20 6e 6f 74 5c 6e 73 | 65 65 20 65 61 63 68 20 |l not\ns|ee each |
|00000650| 6f 74 68 65 72 27 73 20 | 61 75 74 6f 2d 73 61 76 |other's |auto-sav|
|00000660| 65 20 66 69 6c 65 73 2e | 5c 6e 5c 6e 54 68 65 20 |e files.|\n\nThe |
|00000670| 76 61 6c 75 65 20 28 65 | 78 70 61 6e 64 2d 66 69 |value (e|xpand-fi|
|00000680| 6c 65 2d 6e 61 6d 65 20 | 5c 22 7e 2f 61 75 74 6f |le-name |\"~/auto|
|00000690| 73 61 76 65 2f 5c 22 29 | 20 6d 69 67 68 74 20 62 |save/\")| might b|
|000006a0| 65 20 62 65 74 74 65 72 | 20 69 66 20 2f 74 6d 70 |e better| if /tmp|
|000006b0| 5c 6e 69 73 20 6d 6f 75 | 6e 74 65 64 20 66 72 6f |\nis mou|nted fro|
|000006c0| 6d 20 73 77 61 70 20 28 | 70 6f 73 73 69 62 6c 65 |m swap (|possible|
|000006d0| 20 69 6e 20 53 75 6e 4f | 53 2c 20 74 79 70 65 20 | in SunO|S, type |
|000006e0| 60 64 66 20 2f 74 6d 70 | 27 20 74 6f 20 66 69 6e |`df /tmp|' to fin|
|000006f0| 64 20 6f 75 74 29 5c 6e | 61 6e 64 20 74 68 75 73 |d out)\n|and thus|
|00000700| 20 76 61 6e 69 73 68 65 | 73 20 61 66 74 65 72 20 | vanishe|s after |
|00000710| 61 20 72 65 62 6f 6f 74 | 2c 20 6f 72 20 69 66 20 |a reboot|, or if |
|00000720| 79 6f 75 72 20 73 79 73 | 74 65 6d 20 69 73 20 70 |your sys|tem is p|
|00000730| 61 72 74 69 63 75 6c 61 | 72 6c 79 5c 6e 74 68 6f |articula|rly\ntho|
|00000740| 72 6f 75 67 68 20 77 68 | 65 6e 20 63 6c 65 61 6e |rough wh|en clean|
|00000750| 69 6e 67 20 75 70 20 2f | 74 6d 70 2c 20 63 6c 65 |ing up /|tmp, cle|
|00000760| 61 72 69 6e 67 20 65 76 | 65 6e 20 6e 6f 6e 2d 65 |aring ev|en non-e|
|00000770| 6d 70 74 79 20 73 75 62 | 64 69 72 65 63 74 6f 72 |mpty sub|director|
|00000780| 69 65 73 2e 5c 6e 5c 6e | 49 74 20 73 68 6f 75 6c |ies.\n\n|It shoul|
|00000790| 64 20 6e 65 76 65 72 20 | 62 65 20 61 6e 20 65 66 |d never |be an ef|
|000007a0| 73 20 72 65 6d 6f 74 65 | 20 66 69 6c 65 6e 61 6d |s remote| filenam|
|000007b0| 65 20 62 65 63 61 75 73 | 65 20 74 68 61 74 20 77 |e becaus|e that w|
|000007c0| 6f 75 6c 64 5c 6e 64 65 | 66 65 61 74 20 60 65 66 |ould\nde|feat `ef|
|000007d0| 73 2d 61 75 74 6f 2d 73 | 61 76 65 2d 72 65 6d 6f |s-auto-s|ave-remo|
|000007e0| 74 65 6c 79 27 2e 5c 6e | 5c 6e 55 6e 6c 65 73 73 |tely'.\n|\nUnless|
|000007f0| 20 79 6f 75 20 73 65 74 | 20 60 61 75 74 6f 2d 73 | you set| `auto-s|
|00000800| 61 76 65 2d 68 61 73 68 | 2d 70 27 2c 20 79 6f 75 |ave-hash|-p', you|
|00000810| 20 73 68 6f 75 6c 64 6e | 27 74 20 73 65 74 20 74 | shouldn|'t set t|
|00000820| 68 69 73 20 74 6f 20 61 | 5c 6e 64 69 72 65 63 74 |his to a|\ndirect|
|00000830| 6f 72 79 20 69 6e 20 61 | 20 66 69 6c 65 73 79 73 |ory in a| filesys|
|00000840| 74 65 6d 20 74 68 61 74 | 20 64 6f 65 73 20 6e 6f |tem that| does no|
|00000850| 74 20 73 75 70 70 6f 72 | 74 20 6c 6f 6e 67 20 66 |t suppor|t long f|
|00000860| 69 6c 65 6e 61 6d 65 73 | 2c 20 73 69 6e 63 65 5c |ilenames|, since\|
|00000870| 6e 61 20 66 69 6c 65 20 | 6e 61 6d 65 64 5c 6e 5c |na file |named\n\|
|00000880| 6e 20 20 20 20 2f 68 6f | 6d 65 2f 73 6b 2f 6c 69 |n /ho|me/sk/li|
|00000890| 62 2f 65 6d 61 63 73 2f | 6c 69 73 70 2f 61 75 74 |b/emacs/|lisp/aut|
|000008a0| 6f 2d 73 61 76 65 2e 65 | 6c 5c 6e 5c 6e 77 69 6c |o-save.e|l\n\nwil|
|000008b0| 6c 20 68 61 76 65 20 61 | 20 6c 6f 6e 67 69 73 68 |l have a| longish|
|000008c0| 20 66 69 6c 65 6e 61 6d | 65 20 6c 69 6b 65 5c 6e | filenam|e like\n|
|000008d0| 5c 6e 20 20 20 20 41 55 | 54 4f 2d 53 41 56 45 2d |\n AU|TO-SAVE-|
|000008e0| 44 49 52 45 43 54 4f 52 | 59 2f 23 5c 5c 21 68 6f |DIRECTOR|Y/#\\!ho|
|000008f0| 6d 65 5c 5c 21 73 6b 5c | 5c 21 6c 69 62 5c 5c 21 |me\\!sk\|\!lib\\!|
|00000900| 65 6d 61 63 73 5c 5c 21 | 6c 69 73 70 5c 5c 21 61 |emacs\\!|lisp\\!a|
|00000910| 75 74 6f 2d 73 61 76 65 | 2e 65 6c 23 5c 6e 5c 6e |uto-save|.el#\n\n|
|00000920| 61 73 20 61 75 74 6f 20 | 73 61 76 65 20 66 69 6c |as auto |save fil|
|00000930| 65 2e 5c 6e 5c 6e 53 65 | 65 20 61 6c 73 6f 20 76 |e.\n\nSe|e also v|
|00000940| 61 72 69 61 62 6c 65 73 | 20 60 61 75 74 6f 2d 73 |ariables| `auto-s|
|00000950| 61 76 65 2d 64 69 72 65 | 63 74 6f 72 79 2d 66 61 |ave-dire|ctory-fa|
|00000960| 6c 6c 62 61 63 6b 27 2c | 5c 6e 60 65 66 73 2d 61 |llback',|\n`efs-a|
|00000970| 75 74 6f 2d 73 61 76 65 | 27 20 61 6e 64 20 60 65 |uto-save|' and `e|
|00000980| 66 73 2d 61 75 74 6f 2d | 73 61 76 65 2d 72 65 6d |fs-auto-|save-rem|
|00000990| 6f 74 65 6c 79 27 2e 22 | 20 3a 74 79 70 65 20 27 |otely'."| :type '|
|000009a0| 28 63 68 6f 69 63 65 20 | 28 63 6f 6e 73 74 20 3a |(choice |(const :|
|000009b0| 74 61 67 20 22 53 61 6d | 65 20 61 73 20 66 69 6c |tag "Sam|e as fil|
|000009c0| 65 22 20 6e 69 6c 29 20 | 64 69 72 65 63 74 6f 72 |e" nil) |director|
|000009d0| 79 29 20 3a 67 72 6f 75 | 70 20 27 61 75 74 6f 2d |y) :grou|p 'auto-|
|000009e0| 73 61 76 65 29 0a 28 63 | 75 73 74 6f 6d 2d 64 65 |save).(c|ustom-de|
|000009f0| 63 6c 61 72 65 2d 76 61 | 72 69 61 62 6c 65 20 27 |clare-va|riable '|
|00000a00| 61 75 74 6f 2d 73 61 76 | 65 2d 68 61 73 68 2d 70 |auto-sav|e-hash-p|
|00000a10| 20 27 6e 69 6c 20 22 49 | 66 20 6e 6f 6e 2d 6e 69 | 'nil "I|f non-ni|
|00000a20| 6c 2c 20 68 61 73 68 65 | 64 20 61 75 74 6f 73 61 |l, hashe|d autosa|
|00000a30| 76 65 20 6e 61 6d 65 73 | 20 6f 66 20 6c 65 6e 67 |ve names| of leng|
|00000a40| 74 68 20 31 34 20 61 72 | 65 20 75 73 65 64 2e 5c |th 14 ar|e used.\|
|00000a50| 6e 54 68 69 73 20 69 73 | 20 74 6f 20 61 76 6f 69 |nThis is| to avoi|
|00000a60| 64 20 61 75 74 6f 73 61 | 76 65 20 66 69 6c 65 6e |d autosa|ve filen|
|00000a70| 61 6d 65 73 20 6c 6f 6e | 67 65 72 20 74 68 61 6e |ames lon|ger than|
|00000a80| 20 31 34 20 63 68 61 72 | 61 63 74 65 72 73 2e 5c | 14 char|acters.\|
|00000a90| 6e 54 68 65 20 64 69 72 | 65 63 74 6f 72 79 20 75 |nThe dir|ectory u|
|00000aa0| 73 65 64 20 69 73 20 60 | 61 75 74 6f 2d 73 61 76 |sed is `|auto-sav|
|00000ab0| 65 2d 68 61 73 68 2d 64 | 69 72 65 63 74 6f 72 79 |e-hash-d|irectory|
|00000ac0| 27 20 72 65 67 61 72 64 | 6c 65 73 73 20 6f 66 5c |' regard|less of\|
|00000ad0| 6e 60 61 75 74 6f 2d 73 | 61 76 65 2d 64 69 72 65 |n`auto-s|ave-dire|
|00000ae0| 63 74 6f 72 79 27 2e 5c | 6e 48 61 73 68 69 6e 67 |ctory'.\|nHashing|
|00000af0| 20 64 65 66 65 61 74 73 | 20 60 72 65 63 6f 76 65 | defeats| `recove|
|00000b00| 72 2d 61 6c 6c 2d 66 69 | 6c 65 73 27 2c 20 79 6f |r-all-fi|les', yo|
|00000b10| 75 20 68 61 76 65 20 74 | 6f 20 72 65 63 6f 76 65 |u have t|o recove|
|00000b20| 72 20 66 69 6c 65 73 5c | 6e 69 6e 64 69 76 69 64 |r files\|nindivid|
|00000b30| 75 61 6c 6c 79 20 62 79 | 20 64 6f 69 6e 67 20 60 |ually by| doing `|
|00000b40| 72 65 63 6f 76 65 72 2d | 66 69 6c 65 27 2e 22 20 |recover-|file'." |
|00000b50| 3a 74 79 70 65 20 27 62 | 6f 6f 6c 65 61 6e 20 3a |:type 'b|oolean :|
|00000b60| 67 72 6f 75 70 20 27 61 | 75 74 6f 2d 73 61 76 65 |group 'a|uto-save|
|00000b70| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|00000b80| 21 ac 8b c0 c1 21 ac 82 | c2 11 c1 0b 42 13 c0 c4 |!....!..|....B...|
|00000b90| 21 ac 8b c0 c4 21 ac 82 | c5 14 c4 0b 42 13 c5 87 |!....!..|....B...|
|00000ba0| 22 20 5b 62 6f 75 6e 64 | 70 20 65 66 73 2d 61 75 |" [bound|p efs-au|
|00000bb0| 74 6f 2d 73 61 76 65 20 | 30 20 63 75 72 72 65 6e |to-save |0 curren|
|00000bc0| 74 2d 6c 6f 61 64 2d 6c | 69 73 74 20 65 66 73 2d |t-load-l|ist efs-|
|00000bd0| 61 75 74 6f 2d 73 61 76 | 65 2d 72 65 6d 6f 74 65 |auto-sav|e-remote|
|00000be0| 6c 79 20 6e 69 6c 5d 20 | 32 29 0a 28 63 75 73 74 |ly nil] |2).(cust|
|00000bf0| 6f 6d 2d 64 65 63 6c 61 | 72 65 2d 76 61 72 69 61 |om-decla|re-varia|
|00000c00| 62 6c 65 20 27 61 75 74 | 6f 2d 73 61 76 65 2d 6f |ble 'aut|o-save-o|
|00000c10| 66 66 65 72 2d 64 65 6c | 65 74 65 20 27 6e 69 6c |ffer-del|ete 'nil|
|00000c20| 20 22 2a 49 66 20 6e 6f | 6e 2d 6e 69 6c 2c 20 60 | "*If no|n-nil, `|
|00000c30| 72 65 63 6f 76 65 72 2d | 61 6c 6c 2d 66 69 6c 65 |recover-|all-file|
|00000c40| 73 27 20 6f 66 66 65 72 | 73 20 74 6f 20 64 65 6c |s' offer|s to del|
|00000c50| 65 74 65 20 61 75 74 6f | 73 61 76 65 20 66 69 6c |ete auto|save fil|
|00000c60| 65 73 5c 6e 74 68 61 74 | 20 61 72 65 20 6f 75 74 |es\nthat| are out|
|00000c70| 20 6f 66 20 64 61 74 65 | 20 6f 72 20 77 65 72 65 | of date| or were|
|00000c80| 20 64 69 73 6d 69 73 73 | 65 64 20 66 6f 72 20 72 | dismiss|ed for r|
|00000c90| 65 63 6f 76 65 72 69 6e | 67 2e 5c 6e 53 70 65 63 |ecoverin|g.\nSpec|
|00000ca0| 69 61 6c 20 76 61 6c 75 | 65 20 27 61 6c 77 61 79 |ial valu|e 'alway|
|00000cb0| 73 20 64 65 6c 65 74 65 | 73 20 74 68 6f 73 65 20 |s delete|s those |
|00000cc0| 66 69 6c 65 73 20 73 69 | 6c 65 6e 74 6c 79 2e 22 |files si|lently."|
|00000cd0| 20 3a 74 79 70 65 20 27 | 28 63 68 6f 69 63 65 20 | :type '|(choice |
|00000ce0| 28 63 6f 6e 73 74 20 3a | 74 61 67 20 22 6f 6e 22 |(const :|tag "on"|
|00000cf0| 20 74 29 20 28 63 6f 6e | 73 74 20 3a 74 61 67 20 | t) (con|st :tag |
|00000d00| 22 6f 66 66 22 20 6e 69 | 6c 29 20 28 63 6f 6e 73 |"off" ni|l) (cons|
|00000d10| 74 20 3a 74 61 67 20 22 | 44 65 6c 65 74 65 20 73 |t :tag "|Delete s|
|00000d20| 69 6c 65 6e 74 6c 79 22 | 20 61 6c 77 61 79 73 29 |ilently"| always)|
|00000d30| 29 20 3a 67 72 6f 75 70 | 20 27 61 75 74 6f 2d 73 |) :group| 'auto-s|
|00000d40| 61 76 65 29 0a 23 40 32 | 39 30 20 44 69 72 65 63 |ave).#@2|90 Direc|
|00000d50| 74 6f 72 79 20 75 73 65 | 64 20 66 6f 72 20 6c 6f |tory use|d for lo|
|00000d60| 63 61 6c 20 61 75 74 6f | 73 61 76 69 6e 67 20 6f |cal auto|saving o|
|00000d70| 66 20 72 65 6d 6f 74 65 | 20 66 69 6c 65 73 20 69 |f remote| files i|
|00000d80| 66 0a 62 6f 74 68 20 60 | 61 75 74 6f 2d 73 61 76 |f.both `|auto-sav|
|00000d90| 65 2d 64 69 72 65 63 74 | 6f 72 79 27 20 61 6e 64 |e-direct|ory' and|
|00000da0| 20 60 65 66 73 2d 61 75 | 74 6f 2d 73 61 76 65 2d | `efs-au|to-save-|
|00000db0| 72 65 6d 6f 74 65 6c 79 | 27 20 61 72 65 20 6e 69 |remotely|' are ni|
|00000dc0| 6c 2e 0a 41 6c 73 6f 20 | 75 73 65 64 20 69 66 20 |l..Also |used if |
|00000dd0| 61 20 77 6f 72 6b 69 6e | 67 20 64 69 72 65 63 74 |a workin|g direct|
|00000de0| 6f 72 79 20 74 6f 20 62 | 65 20 75 73 65 64 20 66 |ory to b|e used f|
|00000df0| 6f 72 20 61 75 74 6f 73 | 61 76 69 6e 67 20 69 73 |or autos|aving is|
|00000e00| 20 6e 6f 74 20 77 72 69 | 74 61 62 6c 65 2e 0a 54 | not wri|table..T|
|00000e10| 68 69 73 20 2a 6d 75 73 | 74 2a 20 61 6c 77 61 79 |his *mus|t* alway|
|00000e20| 73 20 62 65 20 74 68 65 | 20 6e 61 6d 65 20 6f 66 |s be the| name of|
|00000e30| 20 64 69 72 65 63 74 6f | 72 79 20 74 68 61 74 20 | directo|ry that |
|00000e40| 65 78 69 73 74 73 20 6f | 72 20 63 61 6e 20 62 65 |exists o|r can be|
|00000e50| 0a 63 72 65 61 74 65 64 | 20 62 79 20 79 6f 75 2c |.created| by you,|
|00000e60| 20 6e 65 76 65 72 20 6e | 69 6c 2e 1f 0a 28 64 65 | never n|il...(de|
|00000e70| 66 76 61 72 20 61 75 74 | 6f 2d 73 61 76 65 2d 64 |fvar aut|o-save-d|
|00000e80| 69 72 65 63 74 6f 72 79 | 2d 66 61 6c 6c 62 61 63 |irectory|-fallbac|
|00000e90| 6b 20 28 65 78 70 61 6e | 64 2d 66 69 6c 65 2d 6e |k (expan|d-file-n|
|00000ea0| 61 6d 65 20 22 7e 2f 61 | 75 74 6f 73 61 76 65 2f |ame "~/a|utosave/|
|00000eb0| 22 29 20 28 23 24 20 2e | 20 33 34 30 33 29 29 0a |") (#$ .| 3403)).|
|00000ec0| 23 40 35 39 20 49 66 20 | 6e 6f 6e 2d 6e 69 6c 2c |#@59 If |non-nil,|
|00000ed0| 20 64 69 72 65 63 74 6f | 72 79 20 75 73 65 64 20 | directo|ry used |
|00000ee0| 66 6f 72 20 68 61 73 68 | 65 64 20 61 75 74 6f 73 |for hash|ed autos|
|00000ef0| 61 76 65 20 66 69 6c 65 | 6e 61 6d 65 73 2e 1f 0a |ave file|names...|
|00000f00| 28 64 65 66 76 61 72 20 | 61 75 74 6f 2d 73 61 76 |(defvar |auto-sav|
|00000f10| 65 2d 68 61 73 68 2d 64 | 69 72 65 63 74 6f 72 79 |e-hash-d|irectory|
|00000f20| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 5c | (byte-c|ode "..\|
|00000f30| 6e ae 81 0b 5c 22 87 22 | 20 5b 65 78 70 61 6e 64 |n...\"."| [expand|
|00000f40| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 22 68 61 73 68 |-file-na|me "hash|
|00000f50| 2f 22 20 61 75 74 6f 2d | 73 61 76 65 2d 64 69 72 |/" auto-|save-dir|
|00000f60| 65 63 74 6f 72 79 20 61 | 75 74 6f 2d 73 61 76 65 |ectory a|uto-save|
|00000f70| 2d 64 69 72 65 63 74 6f | 72 79 2d 66 61 6c 6c 62 |-directo|ry-fallb|
|00000f80| 61 63 6b 5d 20 33 29 20 | 28 23 24 20 2e 20 33 37 |ack] 3) |(#$ . 37|
|00000f90| 38 31 29 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |81)).(de|falias '|
|00000fa0| 61 75 74 6f 2d 73 61 76 | 65 2d 63 68 65 63 6b 2d |auto-sav|e-check-|
|00000fb0| 64 69 72 65 63 74 6f 72 | 79 20 23 5b 28 76 61 72 |director|y #[(var|
|00000fc0| 29 20 22 08 4a 89 19 ad | a9 08 c2 09 21 89 11 4c |) ".J...|....!..L|
|00000fd0| 88 c3 09 21 3f ad 9b c4 | 09 21 11 c5 c6 21 ab 86 |...!?...|.!...!..|
|00000fe0| c6 09 21 88 aa 88 c7 c8 | c9 89 89 09 25 88 ca 09 |..!.....|....%...|
|00000ff0| cb 5c 22 29 87 22 20 5b | 76 61 72 20 64 69 72 20 |.\")." [|var dir |
|00001000| 65 78 70 61 6e 64 2d 66 | 69 6c 65 2d 6e 61 6d 65 |expand-f|ile-name|
|00001010| 20 66 69 6c 65 2d 64 69 | 72 65 63 74 6f 72 79 2d | file-di|rectory-|
|00001020| 70 20 64 69 72 65 63 74 | 6f 72 79 2d 66 69 6c 65 |p direct|ory-file|
|00001030| 2d 6e 61 6d 65 20 66 62 | 6f 75 6e 64 70 20 6d 61 |-name fb|oundp ma|
|00001040| 6b 65 2d 64 69 72 65 63 | 74 6f 72 79 20 63 61 6c |ke-direc|tory cal|
|00001050| 6c 2d 70 72 6f 63 65 73 | 73 20 22 6d 6b 64 69 72 |l-proces|s "mkdir|
|00001060| 22 20 6e 69 6c 20 73 65 | 74 2d 66 69 6c 65 2d 6d |" nil se|t-file-m|
|00001070| 6f 64 65 73 20 34 34 38 | 5d 20 37 5d 29 0a 28 62 |odes 448|] 7]).(b|
|00001080| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 c2 5c 22 88 |yte-code| "...\".|
|00001090| 0b ab 84 c1 c4 21 88 c0 | 87 22 20 5b 6d 61 70 63 |.....!..|." [mapc|
|000010a0| 61 72 20 61 75 74 6f 2d | 73 61 76 65 2d 63 68 65 |ar auto-|save-che|
|000010b0| 63 6b 2d 64 69 72 65 63 | 74 6f 72 79 20 28 61 75 |ck-direc|tory (au|
|000010c0| 74 6f 2d 73 61 76 65 2d | 64 69 72 65 63 74 6f 72 |to-save-|director|
|000010d0| 79 20 61 75 74 6f 2d 73 | 61 76 65 2d 64 69 72 65 |y auto-s|ave-dire|
|000010e0| 63 74 6f 72 79 2d 66 61 | 6c 6c 62 61 63 6b 29 20 |ctory-fa|llback) |
|000010f0| 61 75 74 6f 2d 73 61 76 | 65 2d 68 61 73 68 2d 70 |auto-sav|e-hash-p|
|00001100| 20 61 75 74 6f 2d 73 61 | 76 65 2d 68 61 73 68 2d | auto-sa|ve-hash-|
|00001110| 64 69 72 65 63 74 6f 72 | 79 5d 20 33 29 0a 23 40 |director|y] 3).#@|
|00001120| 39 32 32 20 52 65 74 75 | 72 6e 20 66 69 6c 65 20 |922 Retu|rn file |
|00001130| 6e 61 6d 65 20 74 6f 20 | 75 73 65 20 66 6f 72 20 |name to |use for |
|00001140| 61 75 74 6f 2d 73 61 76 | 65 73 20 6f 66 20 63 75 |auto-sav|es of cu|
|00001150| 72 72 65 6e 74 20 62 75 | 66 66 65 72 2e 0a 44 6f |rrent bu|ffer..Do|
|00001160| 65 73 20 6e 6f 74 20 63 | 6f 6e 73 69 64 65 72 20 |es not c|onsider |
|00001170| 60 61 75 74 6f 2d 73 61 | 76 65 2d 76 69 73 69 74 |`auto-sa|ve-visit|
|00001180| 65 64 2d 66 69 6c 65 2d | 6e 61 6d 65 27 3b 20 74 |ed-file-|name'; t|
|00001190| 68 61 74 20 69 73 20 63 | 68 65 63 6b 65 64 0a 62 |hat is c|hecked.b|
|000011a0| 65 66 6f 72 65 20 63 61 | 6c 6c 69 6e 67 20 74 68 |efore ca|lling th|
|000011b0| 69 73 20 66 75 6e 63 74 | 69 6f 6e 2e 0a 0a 4f 66 |is funct|ion...Of|
|000011c0| 66 65 72 73 20 74 6f 20 | 61 75 74 6f 73 61 76 65 |fers to |autosave|
|000011d0| 20 61 6c 6c 20 66 69 6c | 65 73 20 69 6e 20 74 68 | all fil|es in th|
|000011e0| 65 20 73 61 6d 65 20 60 | 61 75 74 6f 2d 73 61 76 |e same `|auto-sav|
|000011f0| 65 2d 64 69 72 65 63 74 | 6f 72 79 27 2e 20 20 41 |e-direct|ory'. A|
|00001200| 6c 6c 0a 61 75 74 6f 73 | 61 76 65 20 66 69 6c 65 |ll.autos|ave file|
|00001210| 73 20 63 61 6e 20 74 68 | 65 6e 20 62 65 20 72 65 |s can th|en be re|
|00001220| 63 6f 76 65 72 65 64 20 | 61 74 20 6f 6e 63 65 20 |covered |at once |
|00001230| 77 69 74 68 20 66 75 6e | 63 74 69 6f 6e 0a 60 72 |with fun|ction.`r|
|00001240| 65 63 6f 76 65 72 2d 61 | 6c 6c 2d 66 69 6c 65 73 |ecover-a|ll-files|
|00001250| 27 2e 0a 0a 54 61 6b 65 | 73 20 63 61 72 65 20 74 |'...Take|s care t|
|00001260| 6f 20 6d 61 6b 65 20 61 | 75 74 6f 73 61 76 65 20 |o make a|utosave |
|00001270| 66 69 6c 65 73 20 66 6f | 72 20 66 69 6c 65 73 20 |files fo|r files |
|00001280| 61 63 63 65 73 73 65 64 | 20 74 68 72 6f 75 67 68 |accessed| through|
|00001290| 20 65 66 73 0a 62 65 20 | 6c 6f 63 61 6c 20 66 69 | efs.be |local fi|
|000012a0| 6c 65 73 20 69 66 20 76 | 61 72 69 61 62 6c 65 20 |les if v|ariable |
|000012b0| 60 65 66 73 2d 61 75 74 | 6f 2d 73 61 76 65 2d 72 |`efs-aut|o-save-r|
|000012c0| 65 6d 6f 74 65 6c 79 27 | 20 69 73 20 6e 69 6c 2e |emotely'| is nil.|
|000012d0| 0a 0a 54 61 6b 65 73 20 | 63 61 72 65 20 6f 66 20 |..Takes |care of |
|000012e0| 73 6c 61 73 68 65 73 20 | 69 6e 20 62 75 66 66 65 |slashes |in buffe|
|000012f0| 72 20 6e 61 6d 65 73 20 | 74 6f 20 70 72 65 76 65 |r names |to preve|
|00001300| 6e 74 20 61 75 74 6f 73 | 61 76 65 20 65 72 72 6f |nt autos|ave erro|
|00001310| 72 73 2e 0a 0a 54 61 6b | 65 73 20 63 61 72 65 20 |rs...Tak|es care |
|00001320| 74 68 61 74 20 61 75 74 | 6f 73 61 76 65 20 66 69 |that aut|osave fi|
|00001330| 6c 65 73 20 66 6f 72 20 | 62 75 66 66 65 72 73 20 |les for |buffers |
|00001340| 6e 6f 74 20 76 69 73 69 | 74 69 6e 67 20 61 6e 79 |not visi|ting any|
|00001350| 20 66 69 6c 65 20 28 73 | 75 63 68 0a 61 73 20 60 | file (s|uch.as `|
|00001360| 2a 6d 61 69 6c 2a 27 29 | 20 66 72 6f 6d 20 74 77 |*mail*')| from tw|
|00001370| 6f 20 73 69 6d 75 6c 74 | 61 6e 65 6f 75 73 20 45 |o simult|aneous E|
|00001380| 6d 61 63 73 65 73 20 64 | 6f 6e 27 74 20 63 6f 6c |macses d|on't col|
|00001390| 6c 69 64 65 20 62 79 20 | 70 72 65 70 65 6e 64 69 |lide by |prependi|
|000013a0| 6e 67 0a 74 68 65 20 45 | 6d 61 63 73 20 70 69 64 |ng.the E|macs pid|
|000013b0| 2e 0a 0a 55 73 65 73 20 | 31 34 20 63 68 61 72 61 |...Uses |14 chara|
|000013c0| 63 74 65 72 20 61 75 74 | 6f 73 61 76 65 20 6e 61 |cter aut|osave na|
|000013d0| 6d 65 73 20 69 66 20 60 | 61 75 74 6f 2d 73 61 76 |mes if `|auto-sav|
|000013e0| 65 2d 68 61 73 68 2d 70 | 27 20 69 73 20 74 72 75 |e-hash-p|' is tru|
|000013f0| 65 2e 0a 0a 41 75 74 6f | 73 61 76 65 73 20 65 76 |e...Auto|saves ev|
|00001400| 65 6e 20 69 66 20 74 68 | 65 20 63 75 72 72 65 6e |en if th|e curren|
|00001410| 74 20 64 69 72 65 63 74 | 6f 72 79 20 69 73 20 6e |t direct|ory is n|
|00001420| 6f 74 20 77 72 69 74 61 | 62 6c 65 2c 20 75 73 69 |ot writa|ble, usi|
|00001430| 6e 67 0a 64 69 72 65 63 | 74 6f 72 79 20 60 61 75 |ng.direc|tory `au|
|00001440| 74 6f 2d 73 61 76 65 2d | 64 69 72 65 63 74 6f 72 |to-save-|director|
|00001450| 79 2d 66 61 6c 6c 62 61 | 63 6b 27 2e 0a 0a 59 6f |y-fallba|ck'...Yo|
|00001460| 75 20 63 61 6e 20 72 65 | 64 65 66 69 6e 65 20 74 |u can re|define t|
|00001470| 68 69 73 20 66 6f 72 20 | 63 75 73 74 6f 6d 69 7a |his for |customiz|
|00001480| 61 74 69 6f 6e 20 28 68 | 65 20 68 65 20 3a 2d 29 |ation (h|e he :-)|
|00001490| 2e 0a 53 65 65 20 61 6c | 73 6f 20 66 75 6e 63 74 |..See al|so funct|
|000014a0| 69 6f 6e 20 60 61 75 74 | 6f 2d 73 61 76 65 2d 66 |ion `aut|o-save-f|
|000014b0| 69 6c 65 2d 6e 61 6d 65 | 2d 70 27 2e 1f 0a 28 64 |ile-name|-p'...(d|
|000014c0| 65 66 61 6c 69 61 73 20 | 27 6d 61 6b 65 2d 61 75 |efalias |'make-au|
|000014d0| 74 6f 2d 73 61 76 65 2d | 66 69 6c 65 2d 6e 61 6d |to-save-|file-nam|
|000014e0| 65 20 23 5b 6e 69 6c 20 | 22 c0 c1 c2 8f 87 22 20 |e #[nil |"....." |
|000014f0| 5b 65 72 72 6f 72 2d 64 | 61 74 61 20 28 62 79 74 |[error-d|ata (byt|
|00001500| 65 2d 63 6f 64 65 20 22 | c0 c1 21 ab 88 09 ab 85 |e-code "|..!.....|
|00001510| c2 0b 21 ae 86 0b ad 83 | c2 0b 21 89 1c 3f ad 81 |..!.....|..!..?..|
|00001520| c5 1e 06 0c ae 84 c7 c8 | 20 21 1e 09 0c 3b ad 88 |........| !...;..|
|00001530| ca cb 21 ad 83 cb 0c 21 | 1e 0c c2 0e 0c ab 90 0e |..!....!|........|
|00001540| 0d ab 86 ce 0e 09 21 aa | 9c cf 0e 09 21 aa 96 0e |......!.|....!...|
|00001550| 10 ac 84 0e 11 ab 88 cf | 0e 09 0e 06 5c 22 aa 86 |........|....\"..|
|00001560| ce 0e 09 0e 06 5c 22 21 | 2c 87 22 20 5b 62 6f 75 |.....\"!|,." [bou|
|00001570| 6e 64 70 20 62 75 66 66 | 65 72 2d 66 69 6c 65 2d |ndp buff|er-file-|
|00001580| 74 72 75 65 6e 61 6d 65 | 20 65 78 70 61 6e 64 2d |truename| expand-|
|00001590| 66 69 6c 65 2d 6e 61 6d | 65 20 62 75 66 66 65 72 |file-nam|e buffer|
|000015a0| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 66 69 6c 65 2d |-file-na|me file-|
|000015b0| 6e 61 6d 65 20 22 23 25 | 22 20 6e 61 6d 65 2d 70 |name "#%|" name-p|
|000015c0| 72 65 66 69 78 20 61 75 | 74 6f 2d 73 61 76 65 2d |refix au|to-save-|
|000015d0| 75 6e 73 6c 61 73 68 69 | 66 79 2d 6e 61 6d 65 20 |unslashi|fy-name |
|000015e0| 62 75 66 66 65 72 2d 6e | 61 6d 65 20 73 61 76 65 |buffer-n|ame save|
|000015f0| 2d 6e 61 6d 65 20 66 62 | 6f 75 6e 64 70 20 65 66 |-name fb|oundp ef|
|00001600| 73 2d 66 74 70 2d 70 61 | 74 68 20 72 65 6d 6f 74 |s-ftp-pa|th remot|
|00001610| 65 2d 70 20 65 66 73 2d | 61 75 74 6f 2d 73 61 76 |e-p efs-|auto-sav|
|00001620| 65 2d 72 65 6d 6f 74 65 | 6c 79 20 61 75 74 6f 2d |e-remote|ly auto-|
|00001630| 73 61 76 65 2d 6e 61 6d | 65 2d 69 6e 2d 73 61 6d |save-nam|e-in-sam|
|00001640| 65 2d 64 69 72 65 63 74 | 6f 72 79 20 61 75 74 6f |e-direct|ory auto|
|00001650| 2d 73 61 76 65 2d 6e 61 | 6d 65 2d 69 6e 2d 66 69 |-save-na|me-in-fi|
|00001660| 78 65 64 2d 64 69 72 65 | 63 74 6f 72 79 20 61 75 |xed-dire|ctory au|
|00001670| 74 6f 2d 73 61 76 65 2d | 64 69 72 65 63 74 6f 72 |to-save-|director|
|00001680| 79 20 61 75 74 6f 2d 73 | 61 76 65 2d 68 61 73 68 |y auto-s|ave-hash|
|00001690| 2d 70 5d 20 35 29 20 28 | 28 65 72 72 6f 72 20 28 |-p] 5) (|(error (|
|000016a0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 5c 6e 5c |byte-cod|e "..\n\|
|000016b0| 22 88 c3 c4 21 88 0d ab | 8a c6 0d 21 c7 c8 0d 21 |"...!...|...!...!|
|000016c0| c7 52 87 c9 ca cb 20 c7 | 51 21 87 22 20 5b 6d 65 |.R.... .|Q!." [me|
|000016d0| 73 73 61 67 65 20 22 6d | 61 6b 65 2d 61 75 74 6f |ssage "m|ake-auto|
|000016e0| 2d 73 61 76 65 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |-save-fi|le-name |
|000016f0| 25 73 22 20 65 72 72 6f | 72 2d 64 61 74 61 20 73 |%s" erro|r-data s|
|00001700| 69 74 2d 66 6f 72 20 32 | 20 62 75 66 66 65 72 2d |it-for 2| buffer-|
|00001710| 66 69 6c 65 2d 6e 61 6d | 65 20 66 69 6c 65 2d 6e |file-nam|e file-n|
|00001720| 61 6d 65 2d 64 69 72 65 | 63 74 6f 72 79 20 22 23 |ame-dire|ctory "#|
|00001730| 22 20 66 69 6c 65 2d 6e | 61 6d 65 2d 6e 6f 6e 64 |" file-n|ame-nond|
|00001740| 69 72 65 63 74 6f 72 79 | 20 65 78 70 61 6e 64 2d |irectory| expand-|
|00001750| 66 69 6c 65 2d 6e 61 6d | 65 20 22 23 25 22 20 62 |file-nam|e "#%" b|
|00001760| 75 66 66 65 72 2d 6e 61 | 6d 65 5d 20 34 29 29 29 |uffer-na|me] 4)))|
|00001770| 5d 20 33 20 28 23 24 20 | 2e 20 34 33 38 38 29 5d |] 3 (#$ |. 4388)]|
|00001780| 29 0a 23 40 32 35 32 20 | 52 65 76 65 72 73 65 20 |).#@252 |Reverse |
|00001790| 6f 66 20 60 6d 61 6b 65 | 2d 61 75 74 6f 2d 73 61 |of `make|-auto-sa|
|000017a0| 76 65 2d 66 69 6c 65 2d | 6e 61 6d 65 27 2e 0a 52 |ve-file-|name'..R|
|000017b0| 65 74 75 72 6e 73 20 6e | 69 6c 20 69 66 20 53 41 |eturns n|il if SA|
|000017c0| 56 45 4e 41 4d 45 20 77 | 61 73 20 6e 6f 74 20 61 |VENAME w|as not a|
|000017d0| 73 73 6f 63 69 61 74 65 | 64 20 77 69 74 68 20 61 |ssociate|d with a|
|000017e0| 20 66 69 6c 65 20 28 65 | 2e 67 2e 2c 20 69 74 20 | file (e|.g., it |
|000017f0| 63 61 6d 65 0a 66 72 6f | 6d 20 61 6e 20 61 75 74 |came.fro|m an aut|
|00001800| 6f 73 61 76 65 64 20 60 | 2a 6d 61 69 6c 2a 27 20 |osaved `|*mail*' |
|00001810| 62 75 66 66 65 72 29 20 | 6f 72 20 64 6f 65 73 20 |buffer) |or does |
|00001820| 6e 6f 74 20 61 70 70 65 | 61 72 20 74 6f 20 62 65 |not appe|ar to be|
|00001830| 20 61 6e 0a 61 75 74 6f | 73 61 76 65 20 66 69 6c | an.auto|save fil|
|00001840| 65 20 61 74 20 61 6c 6c | 2e 0a 48 61 73 68 65 64 |e at all|..Hashed|
|00001850| 20 66 69 6c 65 73 20 61 | 72 65 20 6e 6f 74 20 75 | files a|re not u|
|00001860| 6e 64 65 72 73 74 6f 6f | 64 2c 20 73 65 65 20 60 |nderstoo|d, see `|
|00001870| 61 75 74 6f 2d 73 61 76 | 65 2d 68 61 73 68 2d 70 |auto-sav|e-hash-p|
|00001880| 27 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 61 |'...(def|alias 'a|
|00001890| 75 74 6f 2d 73 61 76 65 | 2d 6f 72 69 67 69 6e 61 |uto-save|-origina|
|000018a0| 6c 2d 6e 61 6d 65 20 23 | 5b 28 73 61 76 65 6e 61 |l-name #|[(savena|
|000018b0| 6d 65 29 20 22 c0 09 21 | c2 09 21 1b 1c c5 0c 21 |me) "..!|..!....!|
|000018c0| ab 86 c6 c7 0c 5c 22 ab | 83 c8 aa 9a 0b 0e 09 6b |.....\".|.......k|
|000018d0| ac 86 0b 0e 5c 6e 6b ab | 88 cb 0c cc cd 4f 21 aa |....\nk.|.....O!.|
|000018e0| 86 0b 0c cc cd 4f 50 2a | 87 22 20 5b 66 69 6c 65 |.....OP*|." [file|
|000018f0| 2d 6e 61 6d 65 2d 6e 6f | 6e 64 69 72 65 63 74 6f |-name-no|ndirecto|
|00001900| 72 79 20 73 61 76 65 6e | 61 6d 65 20 66 69 6c 65 |ry saven|ame file|
|00001910| 2d 6e 61 6d 65 2d 64 69 | 72 65 63 74 6f 72 79 20 |-name-di|rectory |
|00001920| 73 61 76 65 64 69 72 20 | 62 61 73 65 6e 61 6d 65 |savedir |basename|
|00001930| 20 61 75 74 6f 2d 73 61 | 76 65 2d 66 69 6c 65 2d | auto-sa|ve-file-|
|00001940| 6e 61 6d 65 2d 70 20 73 | 74 72 69 6e 67 2d 6d 61 |name-p s|tring-ma|
|00001950| 74 63 68 20 22 5e 23 25 | 22 20 6e 69 6c 20 61 75 |tch "^#%|" nil au|
|00001960| 74 6f 2d 73 61 76 65 2d | 64 69 72 65 63 74 6f 72 |to-save-|director|
|00001970| 79 20 61 75 74 6f 2d 73 | 61 76 65 2d 64 69 72 65 |y auto-s|ave-dire|
|00001980| 63 74 6f 72 79 2d 66 61 | 6c 6c 62 61 63 6b 20 61 |ctory-fa|llback a|
|00001990| 75 74 6f 2d 73 61 76 65 | 2d 73 6c 61 73 68 69 66 |uto-save|-slashif|
|000019a0| 79 2d 6e 61 6d 65 20 31 | 20 2d 31 5d 20 34 20 28 |y-name 1| -1] 4 (|
|000019b0| 23 24 20 2e 20 36 30 32 | 34 29 5d 29 0a 28 64 65 |#$ . 602|4)]).(de|
|000019c0| 66 61 6c 69 61 73 20 27 | 61 75 74 6f 2d 73 61 76 |falias '|auto-sav|
|000019d0| 65 2d 6e 61 6d 65 2d 69 | 6e 2d 66 69 78 65 64 2d |e-name-i|n-fixed-|
|000019e0| 64 69 72 65 63 74 6f 72 | 79 20 23 5b 28 66 69 6c |director|y #[(fil|
|000019f0| 65 6e 61 6d 65 20 26 6f | 70 74 69 6f 6e 61 6c 20 |ename &o|ptional |
|00001a00| 70 72 65 66 69 78 29 20 | 22 08 ae 81 c1 c2 0b 21 |prefix) |"......!|
|00001a10| c1 51 1c 0d ab 93 0e 06 | ab 8f 0c 47 c7 56 ab 89 |.Q......|...G.V..|
|00001a20| c8 c9 0b 21 0e 06 5c 22 | aa 89 c8 0c 0e 5c 6e ae |...!..\"|.....\n.|
|00001a30| 82 0e 0b 5c 22 29 87 22 | 20 5b 70 72 65 66 69 78 |...\")."| [prefix|
|00001a40| 20 22 23 22 20 61 75 74 | 6f 2d 73 61 76 65 2d 75 | "#" aut|o-save-u|
|00001a50| 6e 73 6c 61 73 68 69 66 | 79 2d 6e 61 6d 65 20 66 |nslashif|y-name f|
|00001a60| 69 6c 65 6e 61 6d 65 20 | 62 61 73 65 2d 6e 61 6d |ilename |base-nam|
|00001a70| 65 20 61 75 74 6f 2d 73 | 61 76 65 2d 68 61 73 68 |e auto-s|ave-hash|
|00001a80| 2d 70 20 61 75 74 6f 2d | 73 61 76 65 2d 68 61 73 |-p auto-|save-has|
|00001a90| 68 2d 64 69 72 65 63 74 | 6f 72 79 20 31 34 20 65 |h-direct|ory 14 e|
|00001aa0| 78 70 61 6e 64 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |xpand-fi|le-name |
|00001ab0| 61 75 74 6f 2d 73 61 76 | 65 2d 63 79 63 6c 69 63 |auto-sav|e-cyclic|
|00001ac0| 2d 68 61 73 68 2d 31 34 | 20 61 75 74 6f 2d 73 61 |-hash-14| auto-sa|
|00001ad0| 76 65 2d 64 69 72 65 63 | 74 6f 72 79 20 61 75 74 |ve-direc|tory aut|
|00001ae0| 6f 2d 73 61 76 65 2d 64 | 69 72 65 63 74 6f 72 79 |o-save-d|irectory|
|00001af0| 2d 66 61 6c 6c 62 61 63 | 6b 5d 20 33 5d 29 0a 28 |-fallbac|k] 3]).(|
|00001b00| 64 65 66 61 6c 69 61 73 | 20 27 61 75 74 6f 2d 73 |defalias| 'auto-s|
|00001b10| 61 76 65 2d 6e 61 6d 65 | 2d 69 6e 2d 73 61 6d 65 |ave-name|-in-same|
|00001b20| 2d 64 69 72 65 63 74 6f | 72 79 20 23 5b 28 66 69 |-directo|ry #[(fi|
|00001b30| 6c 65 6e 61 6d 65 20 26 | 6f 70 74 69 6f 6e 61 6c |lename &|optional|
|00001b40| 20 70 72 65 66 69 78 29 | 20 22 c0 09 21 89 1a ab | prefix)| "..!...|
|00001b50| 87 c3 5c 6e 21 ac 82 0c | 12 5c 6e 0d ae 81 c6 c7 |..\n!...|.\n.....|
|00001b60| 09 21 c6 52 29 87 22 20 | 5b 66 69 6c 65 2d 6e 61 |.!.R)." |[file-na|
|00001b70| 6d 65 2d 64 69 72 65 63 | 74 6f 72 79 20 66 69 6c |me-direc|tory fil|
|00001b80| 65 6e 61 6d 65 20 64 69 | 72 65 63 74 6f 72 79 20 |ename di|rectory |
|00001b90| 66 69 6c 65 2d 77 72 69 | 74 61 62 6c 65 2d 70 20 |file-wri|table-p |
|00001ba0| 61 75 74 6f 2d 73 61 76 | 65 2d 64 69 72 65 63 74 |auto-sav|e-direct|
|00001bb0| 6f 72 79 2d 66 61 6c 6c | 62 61 63 6b 20 70 72 65 |ory-fall|back pre|
|00001bc0| 66 69 78 20 22 23 22 20 | 66 69 6c 65 2d 6e 61 6d |fix "#" |file-nam|
|00001bd0| 65 2d 6e 6f 6e 64 69 72 | 65 63 74 6f 72 79 5d 20 |e-nondir|ectory] |
|00001be0| 35 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 61 |5]).(def|alias 'a|
|00001bf0| 75 74 6f 2d 73 61 76 65 | 2d 75 6e 73 6c 61 73 68 |uto-save|-unslash|
|00001c00| 69 66 79 2d 6e 61 6d 65 | 20 23 5b 28 73 29 20 22 |ify-name| #[(s) "|
|00001c10| c0 19 c2 c3 0c 09 23 ab | a0 0c c0 89 94 4f 0c c0 |......#.|.....O..|
|00001c20| 94 c0 95 4f c5 98 ab 83 | c6 aa 81 c7 0c c0 95 c8 |...O....|........|
|00001c30| 4f 51 14 c0 95 54 11 aa | 59 29 0c 87 22 20 5b 30 |OQ...T..|Y).." [0|
|00001c40| 20 6c 69 6d 69 74 20 73 | 74 72 69 6e 67 2d 6d 61 | limit s|tring-ma|
|00001c50| 74 63 68 20 22 5b 2f 5c | 5c 5d 22 20 73 20 22 2f |tch "[/\|\]" s "/|
|00001c60| 22 20 22 5c 5c 21 22 20 | 22 5c 5c 5c 5c 22 20 6e |" "\\!" |"\\\\" n|
|00001c70| 69 6c 5d 20 35 5d 29 0a | 28 64 65 66 61 6c 69 61 |il] 5]).|(defalia|
|00001c80| 73 20 27 61 75 74 6f 2d | 73 61 76 65 2d 73 6c 61 |s 'auto-|save-sla|
|00001c90| 73 68 69 66 79 2d 6e 61 | 6d 65 20 23 5b 28 73 29 |shify-na|me #[(s)|
|00001ca0| 20 22 c0 19 c2 c3 0c 09 | 23 89 11 ab 9d 0c c5 09 | "......|#.......|
|00001cb0| 4f 0c 09 54 48 c6 61 ab | 83 c7 aa 81 c8 0c 09 c9 |O..TH.a.|........|
|00001cc0| 5c 5c c0 4f 51 14 09 54 | 11 aa 5a 29 0c 87 22 20 |\\.OQ..T|..Z).." |
|00001cd0| 5b 6e 69 6c 20 70 6f 73 | 20 73 74 72 69 6e 67 2d |[nil pos| string-|
|00001ce0| 6d 61 74 63 68 20 22 5c | 5c 5c 5c 5b 5c 5c 21 5d |match "\|\\\[\\!]|
|00001cf0| 22 20 73 20 30 20 3f 5c | 21 20 22 2f 22 20 22 5c |" s 0 ?\|! "/" "\|
|00001d00| 5c 22 20 32 5d 20 35 5d | 29 0a 28 64 65 66 61 6c |\" 2] 5]|).(defal|
|00001d10| 69 61 73 20 27 61 75 74 | 6f 2d 73 61 76 65 2d 63 |ias 'aut|o-save-c|
|00001d20| 79 63 6c 69 63 2d 68 61 | 73 68 2d 31 34 20 23 5b |yclic-ha|sh-14 #[|
|00001d30| 28 73 29 20 22 c0 c1 c2 | 5c 22 c3 1c 1d c6 c7 0e |(s) "...|\"......|
|00001d40| 08 5c 22 88 c9 ca 0d c2 | 48 0d cb 48 0d cc 48 0d |.\".....|H..H..H.|
|00001d50| cd 48 0d ce 48 0d cf 48 | 0d d0 48 26 08 89 14 2a |.H..H..H|..H&...*|
|00001d60| 87 22 20 5b 6d 61 6b 65 | 2d 73 74 72 69 6e 67 20 |." [make|-string |
|00001d70| 37 20 30 20 6e 69 6c 20 | 72 65 73 75 6c 74 20 63 |7 0 nil |result c|
|00001d80| 72 63 20 6d 61 70 63 61 | 72 20 23 5b 28 6e 65 77 |rc mapca|r #[(new|
|00001d90| 29 20 22 08 09 c2 48 5c | 5c 10 09 c2 09 c3 48 08 |) "...H\|\.....H.|
|00001da0| 5c 5c 49 88 09 c3 09 c4 | 48 49 88 09 c4 09 c5 48 |\\I.....|HI.....H|
|00001db0| 49 88 09 c5 09 c6 48 08 | 5c 5c 49 88 09 c6 09 c7 |I.....H.|\\I.....|
|00001dc0| 48 49 88 09 c7 09 c8 48 | 49 88 09 c8 08 49 87 22 |HI.....H|I....I."|
|00001dd0| 20 5b 6e 65 77 20 63 72 | 63 20 36 20 35 20 34 20 | [new cr|c 6 5 4 |
|00001de0| 33 20 32 20 31 20 30 5d | 20 34 5d 20 73 20 66 6f |3 2 1 0]| 4] s fo|
|00001df0| 72 6d 61 74 20 22 25 30 | 32 78 25 30 32 78 25 30 |rmat "%0|2x%02x%0|
|00001e00| 32 78 25 30 32 78 25 30 | 32 78 25 30 32 78 25 30 |2x%02x%0|2x%02x%0|
|00001e10| 32 78 22 20 31 20 32 20 | 33 20 34 20 35 20 36 5d |2x" 1 2 |3 4 5 6]|
|00001e20| 20 31 31 5d 29 0a 23 40 | 31 39 33 20 4f 75 74 70 | 11]).#@|193 Outp|
|00001e30| 75 74 73 20 74 68 65 20 | 31 32 2d 63 68 61 72 61 |uts the |12-chara|
|00001e40| 63 74 65 72 73 20 61 73 | 63 69 69 20 68 65 78 20 |cters as|cii hex |
|00001e50| 72 65 70 72 65 73 65 6e | 74 61 74 69 6f 6e 20 6f |represen|tation o|
|00001e60| 66 20 61 20 36 2d 62 79 | 74 65 73 0a 63 79 63 6c |f a 6-by|tes.cycl|
|00001e70| 69 63 20 63 6f 64 65 20 | 66 6f 72 20 62 75 72 73 |ic code |for burs|
|00001e80| 74 20 63 6f 72 72 65 63 | 74 69 6f 6e 20 63 61 6c |t correc|tion cal|
|00001e90| 63 75 6c 61 74 65 64 20 | 6f 6e 20 53 54 52 49 4e |culated |on STRIN|
|00001ea0| 47 20 6f 6e 20 61 0a 62 | 79 74 65 2d 62 79 2d 62 |G on a.b|yte-by-b|
|00001eb0| 79 74 65 20 62 61 73 69 | 73 2e 20 54 68 65 20 75 |yte basi|s. The u|
|00001ec0| 73 65 64 20 70 6f 6c 79 | 6e 6f 6d 69 61 6c 20 69 |sed poly|nomial i|
|00001ed0| 73 20 44 5e 36 20 2b 20 | 44 5e 35 20 2b 20 44 5e |s D^6 + |D^5 + D^|
|00001ee0| 34 20 2b 20 44 5e 33 20 | 2b 31 2e 1f 0a 28 64 65 |4 + D^3 |+1...(de|
|00001ef0| 66 61 6c 69 61 73 20 27 | 61 75 74 6f 2d 73 61 76 |falias '|auto-sav|
|00001f00| 65 2d 63 79 63 6c 69 63 | 2d 68 61 73 68 2d 31 32 |e-cyclic|-hash-12|
|00001f10| 20 23 5b 28 73 29 20 22 | c0 c1 c2 5c 22 1b c4 c5 | #[(s) "|...\"...|
|00001f20| 0e 06 5c 22 88 c7 c8 0b | c2 48 0b c9 48 0b ca 48 |..\"....|.H..H..H|
|00001f30| 0b cb 48 0b cc 48 0b cd | 48 26 07 29 87 22 20 5b |..H..H..|H&.)." [|
|00001f40| 6d 61 6b 65 2d 73 74 72 | 69 6e 67 20 36 20 30 20 |make-str|ing 6 0 |
|00001f50| 63 72 63 20 6d 61 70 63 | 61 72 20 23 5b 28 6e 65 |crc mapc|ar #[(ne|
|00001f60| 77 29 20 22 08 09 c2 48 | 5c 5c 10 09 c2 09 c3 48 |w) "...H|\\.....H|
|00001f70| 08 5c 5c 49 88 09 c3 09 | c4 48 08 5c 5c 49 88 09 |.\\I....|.H.\\I..|
|00001f80| c4 09 c5 48 08 5c 5c 49 | 88 09 c5 09 c6 48 49 88 |...H.\\I|.....HI.|
|00001f90| 09 c6 09 c7 48 49 88 09 | c7 08 49 87 22 20 5b 6e |....HI..|..I." [n|
|00001fa0| 65 77 20 63 72 63 20 35 | 20 34 20 33 20 32 20 31 |ew crc 5| 4 3 2 1|
|00001fb0| 20 30 5d 20 34 5d 20 73 | 20 66 6f 72 6d 61 74 20 | 0] 4] s| format |
|00001fc0| 22 25 30 32 78 25 30 32 | 78 25 30 32 78 25 30 32 |"%02x%02|x%02x%02|
|00001fd0| 78 25 30 32 78 25 30 32 | 78 22 20 31 20 32 20 33 |x%02x%02|x" 1 2 3|
|00001fe0| 20 34 20 35 5d 20 39 20 | 28 23 24 20 2e 20 37 37 | 4 5] 9 |(#$ . 77|
|00001ff0| 32 34 29 5d 29 0a 23 40 | 34 37 30 20 44 6f 20 72 |24)]).#@|470 Do r|
|00002000| 65 63 6f 76 65 72 2d 66 | 69 6c 65 20 66 6f 72 20 |ecover-f|ile for |
|00002010| 61 6c 6c 20 61 75 74 6f | 73 61 76 65 20 66 69 6c |all auto|save fil|
|00002020| 65 73 20 77 68 69 63 68 | 20 61 72 65 20 63 75 72 |es which| are cur|
|00002030| 72 65 6e 74 2e 0a 4f 6e | 6c 79 20 77 6f 72 6b 73 |rent..On|ly works|
|00002040| 20 69 66 20 79 6f 75 20 | 68 61 76 65 20 61 20 6e | if you |have a n|
|00002050| 6f 6e 2d 6e 69 6c 20 60 | 61 75 74 6f 2d 73 61 76 |on-nil `|auto-sav|
|00002060| 65 2d 64 69 72 65 63 74 | 6f 72 79 27 2e 0a 0a 4f |e-direct|ory'...O|
|00002070| 70 74 69 6f 6e 61 6c 20 | 70 72 65 66 69 78 20 61 |ptional |prefix a|
|00002080| 72 67 75 6d 65 6e 74 20 | 53 49 4c 45 4e 54 20 6d |rgument |SILENT m|
|00002090| 65 61 6e 73 20 74 6f 20 | 62 65 20 73 69 6c 65 6e |eans to |be silen|
|000020a0| 74 20 61 62 6f 75 74 20 | 6e 6f 6e 2d 63 75 72 72 |t about |non-curr|
|000020b0| 65 6e 74 0a 61 75 74 6f | 73 61 76 65 20 66 69 6c |ent.auto|save fil|
|000020c0| 65 73 2e 20 20 54 68 69 | 73 20 69 73 20 75 73 65 |es. Thi|s is use|
|000020d0| 66 75 6c 20 69 66 20 69 | 6e 76 6f 6b 65 64 20 61 |ful if i|nvoked a|
|000020e0| 75 74 6f 6d 61 74 69 63 | 61 6c 6c 79 20 61 74 20 |utomatic|ally at |
|000020f0| 45 6d 61 63 73 0a 73 74 | 61 72 74 75 70 2e 0a 0a |Emacs.st|artup...|
|00002100| 49 66 20 60 61 75 74 6f | 2d 73 61 76 65 2d 6f 66 |If `auto|-save-of|
|00002110| 66 65 72 2d 64 65 6c 65 | 74 65 27 20 69 73 20 74 |fer-dele|te' is t|
|00002120| 2c 20 74 68 69 73 20 66 | 75 6e 63 74 69 6f 6e 20 |, this f|unction |
|00002130| 77 69 6c 6c 20 6f 66 66 | 65 72 20 74 6f 20 64 65 |will off|er to de|
|00002140| 6c 65 74 65 0a 6f 6c 64 | 20 6f 72 20 72 65 6a 65 |lete.old| or reje|
|00002150| 63 74 65 64 20 61 75 74 | 6f 73 61 76 65 20 66 69 |cted aut|osave fi|
|00002160| 6c 65 73 2e 0a 0a 48 61 | 73 68 65 64 20 66 69 6c |les...Ha|shed fil|
|00002170| 65 73 20 28 73 65 65 20 | 60 61 75 74 6f 2d 73 61 |es (see |`auto-sa|
|00002180| 76 65 2d 68 61 73 68 2d | 70 27 29 20 61 72 65 20 |ve-hash-|p') are |
|00002190| 6e 6f 74 20 75 6e 64 65 | 72 73 74 6f 6f 64 2c 20 |not unde|rstood, |
|000021a0| 75 73 65 0a 60 72 65 63 | 6f 76 65 72 2d 66 69 6c |use.`rec|over-fil|
|000021b0| 65 27 20 74 6f 20 72 65 | 63 6f 76 65 72 20 74 68 |e' to re|cover th|
|000021c0| 65 6d 20 69 6e 64 69 76 | 69 64 75 61 6c 6c 79 2e |em indiv|idually.|
|000021d0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 72 65 63 |..(defal|ias 'rec|
|000021e0| 6f 76 65 72 2d 61 6c 6c | 2d 66 69 6c 65 73 20 23 |over-all|-files #|
|000021f0| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 73 69 6c 65 |[(&optio|nal sile|
|00002200| 6e 74 29 20 22 c0 09 c2 | c3 23 c4 89 c5 89 1e 06 |nt) "...|.#......|
|00002210| 1e 07 1e 08 1e 09 1e 5c | 6e 09 0e 0b 6b ac 8c cc |.......\|n...k...|
|00002220| 0e 5c 6e c0 0e 0b c2 c3 | 23 5c 22 16 5c 6e 0e 5c |.\n.....|#\".\n.\|
|00002230| 6e 83 d6 00 0e 5c 6e 40 | 16 09 cd 0e 09 21 16 08 |n....\n@|.....!..|
|00002240| 0e 5c 6e 41 16 5c 6e 0e | 08 ab 94 ce 0e 09 0e 08 |.\nA.\n.|........|
|00002250| 5c 22 ac 8c cf d0 0e 09 | 5c 22 88 d1 d2 21 88 aa |\"......|\"...!..|
|00002260| 53 0e 07 54 16 07 d3 90 | d4 d5 d6 c4 0e 17 c4 d8 |S..T....|........|
|00002270| 0e 09 0e 08 ad 83 0e 08 | 43 26 08 91 88 d9 da db |........|C&......|
|00002280| 0e 08 ae 81 dc 5c 22 21 | ab bf 70 1e 1d 0e 08 ab |.....\"!|..p.....|
|00002290| 87 de 0e 08 c2 5c 22 aa | 83 df e0 21 71 1e 21 c4 |.....\".|...!q.!.|
|000022a0| 1e 5c 22 e3 20 88 e4 0e | 09 c4 5c 22 88 c4 e5 e6 |.\". ...|..\"....|
|000022b0| 8f 88 c4 16 27 0e 06 54 | 16 06 cf e8 e9 20 5c 22 |....'..T|..... \"|
|000022c0| 88 0e 1d 71 88 d1 ea 21 | 88 2b 82 25 00 0e 2b 83 |...q...!|.+.%..+.|
|000022d0| 25 00 0e 2b ec 61 ac 8a | d9 da ed 0e 08 5c 22 21 |%..+.a..|.....\"!|
|000022e0| 83 25 00 ee 0e 09 21 88 | 82 25 00 0e 07 c5 55 ab |.%....!.|.%....U.|
|000022f0| 8a 0e 2f ac 98 cf f0 21 | 88 aa 92 cf f1 0e 06 0e |../....!|........|
|00002300| 07 0e 06 ea 55 ab 83 f2 | aa 81 f3 24 88 2d f4 d3 |....U...|...$.-..|
|00002310| 21 ad 83 f5 d3 21 87 22 | 20 5b 64 69 72 65 63 74 |!....!."| [direct|
|00002320| 6f 72 79 2d 66 69 6c 65 | 73 20 61 75 74 6f 2d 73 |ory-file|s auto-s|
|00002330| 61 76 65 2d 64 69 72 65 | 63 74 6f 72 79 20 74 20 |ave-dire|ctory t |
|00002340| 22 5e 23 22 20 6e 69 6c | 20 30 20 63 6f 75 6e 74 |"^#" nil| 0 count|
|00002350| 20 74 6f 74 61 6c 20 66 | 69 6c 65 20 61 66 69 6c | total f|ile afil|
|00002360| 65 20 73 61 76 65 66 69 | 6c 65 73 20 61 75 74 6f |e savefi|les auto|
|00002370| 2d 73 61 76 65 2d 64 69 | 72 65 63 74 6f 72 79 2d |-save-di|rectory-|
|00002380| 66 61 6c 6c 62 61 63 6b | 20 61 70 70 65 6e 64 20 |fallback| append |
|00002390| 61 75 74 6f 2d 73 61 76 | 65 2d 6f 72 69 67 69 6e |auto-sav|e-origin|
|000023a0| 61 6c 2d 6e 61 6d 65 20 | 66 69 6c 65 2d 6e 65 77 |al-name |file-new|
|000023b0| 65 72 2d 74 68 61 6e 2d | 66 69 6c 65 2d 70 20 6d |er-than-|file-p m|
|000023c0| 65 73 73 61 67 65 20 22 | 61 75 74 6f 73 61 76 65 |essage "|autosave|
|000023d0| 20 66 69 6c 65 20 5c 22 | 25 73 5c 22 20 69 73 20 | file \"|%s\" is |
|000023e0| 6e 6f 74 20 63 75 72 72 | 65 6e 74 2e 22 20 73 69 |not curr|ent." si|
|000023f0| 74 2d 66 6f 72 20 32 20 | 22 2a 44 69 72 65 63 74 |t-for 2 |"*Direct|
|00002400| 6f 72 79 2a 22 20 61 70 | 70 6c 79 20 63 61 6c 6c |ory*" ap|ply call|
|00002410| 2d 70 72 6f 63 65 73 73 | 20 22 6c 73 22 20 73 74 |-process| "ls" st|
|00002420| 61 6e 64 61 72 64 2d 6f | 75 74 70 75 74 20 22 2d |andard-o|utput "-|
|00002430| 6c 22 20 79 65 73 2d 6f | 72 2d 6e 6f 2d 70 20 66 |l" yes-o|r-no-p f|
|00002440| 6f 72 6d 61 74 20 22 52 | 65 63 6f 76 65 72 20 25 |ormat "R|ecover %|
|00002450| 73 20 66 72 6f 6d 20 61 | 75 74 6f 20 73 61 76 65 |s from a|uto save|
|00002460| 20 66 69 6c 65 3f 20 22 | 20 22 6e 6f 6e 2d 66 69 | file? "| "non-fi|
|00002470| 6c 65 20 62 75 66 66 65 | 72 22 20 6f 62 75 66 20 |le buffe|r" obuf |
|00002480| 66 69 6e 64 2d 66 69 6c | 65 2d 6e 6f 73 65 6c 65 |find-fil|e-nosele|
|00002490| 63 74 20 67 65 6e 65 72 | 61 74 65 2d 6e 65 77 2d |ct gener|ate-new-|
|000024a0| 62 75 66 66 65 72 20 22 | 2a 72 65 63 6f 76 65 72 |buffer "|*recover|
|000024b0| 65 64 2a 22 20 62 75 66 | 20 62 75 66 66 65 72 2d |ed*" buf| buffer-|
|000024c0| 72 65 61 64 2d 6f 6e 6c | 79 20 65 72 61 73 65 2d |read-onl|y erase-|
|000024d0| 62 75 66 66 65 72 20 69 | 6e 73 65 72 74 2d 66 69 |buffer i|nsert-fi|
|000024e0| 6c 65 2d 63 6f 6e 74 65 | 6e 74 73 20 28 61 66 74 |le-conte|nts (aft|
|000024f0| 65 72 2d 66 69 6e 64 2d | 66 69 6c 65 20 6e 69 6c |er-find-|file nil|
|00002500| 29 20 28 28 65 72 72 6f | 72 29 29 20 62 75 66 66 |) ((erro|r)) buff|
|00002510| 65 72 2d 61 75 74 6f 2d | 73 61 76 65 2d 66 69 6c |er-auto-|save-fil|
|00002520| 65 2d 6e 61 6d 65 20 22 | 41 75 74 6f 2d 73 61 76 |e-name "|Auto-sav|
|00002530| 65 20 6f 66 66 20 69 6e | 20 62 75 66 66 65 72 20 |e off in| buffer |
|00002540| 5c 22 25 73 5c 22 20 74 | 69 6c 6c 20 79 6f 75 20 |\"%s\" t|ill you |
|00002550| 64 6f 20 4d 2d 78 20 61 | 75 74 6f 2d 73 61 76 65 |do M-x a|uto-save|
|00002560| 2d 6d 6f 64 65 2e 22 20 | 62 75 66 66 65 72 2d 6e |-mode." |buffer-n|
|00002570| 61 6d 65 20 31 20 61 75 | 74 6f 2d 73 61 76 65 2d |ame 1 au|to-save-|
|00002580| 6f 66 66 65 72 2d 64 65 | 6c 65 74 65 20 61 6c 77 |offer-de|lete alw|
|00002590| 61 79 73 20 22 44 65 6c | 65 74 65 20 61 75 74 6f |ays "Del|ete auto|
|000025a0| 73 61 76 65 20 66 69 6c | 65 20 66 6f 72 20 60 25 |save fil|e for `%|
|000025b0| 73 27 3f 20 22 20 64 65 | 6c 65 74 65 2d 66 69 6c |s'? " de|lete-fil|
|000025c0| 65 20 73 69 6c 65 6e 74 | 20 22 4e 6f 74 68 69 6e |e silent| "Nothin|
|000025d0| 67 20 74 6f 20 72 65 63 | 6f 76 65 72 2e 22 20 22 |g to rec|over." "|
|000025e0| 25 64 2f 25 64 20 66 69 | 6c 65 25 73 20 72 65 63 |%d/%d fi|le%s rec|
|000025f0| 6f 76 65 72 65 64 2e 22 | 20 22 22 20 22 73 22 20 |overed."| "" "s" |
|00002600| 67 65 74 2d 62 75 66 66 | 65 72 20 6b 69 6c 6c 2d |get-buff|er kill-|
|00002610| 62 75 66 66 65 72 5d 20 | 31 30 20 28 23 24 20 2e |buffer] |10 (#$ .|
|00002620| 20 38 31 38 38 29 20 22 | 50 22 5d 29 0a | 8188) "|P"]). |
+--------+-------------------------+-------------------------+--------+--------+
